home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pcscheme / geneva / pcscheme.exe / BIN / SCOOPS.FSL < prev    next >
Encoding:
Text File  |  1993-06-05  |  23.6 KB  |  815 lines
  1. #!fast-load 4.0 (sources.s/scoops/class.s sources.s/scoops/methods.s sources.s/scoops/instance.s sources.s/scoops/inherit.s sources.s/scoops/interf.s sources.s/scoops/send.s sources.s/scoops/utility.s sources.s/scoops/expand.s sources.s/scoops/types.s)
  2. h0002 000A
  3. x07#!CLASS
  4. x0B%%CLASS-TAG
  5. t;
  6. z
  7. h000B 00F5
  8. x0E%SC-MAKE-CLASS
  9. lx04NAMElx02CVlx06ALLIVSlx06MIXINSlx0DMETHOD-VALUESn
  10. x04NAME
  11. x02CV
  12. x06ALLIVS
  13. x06MIXINS
  14. x0DMETHOD-VALUES
  15. x06MAPCAR
  16. x0B%%CLASS-TAG
  17. x19%UNCOMPILED-MAKE-INSTANCE
  18. x06%CLASS
  19. t<; ▌ <¼ 4 ¿$(  $($(  $($(  $($(  $($(  $($(  $(    4(  ( $    ( $( $
  20. ( $( $( $( $(
  21. u $(;@ O x ;
  22. z
  23. h0004 004F
  24. x11%SCOOPS-CHK-CLASS
  25. x0B%%CLASS-TAG
  26. x0DERROR-HANDLER
  27. x02#T
  28. t<;æ"#⌐ ⁿ \ⁿⁿ"   f ê"  5;
  29. z
  30. h0004 0018
  31. x11DEFINE-INTEGRABLE
  32. lx06LAMBDAllx05CLASSnllx0AVECTOR-REFlx05CLASSli0001nn
  33. x08%SC-NAME
  34. x12PCS*PRIMOP-HANDLER
  35. tO u ;
  36. z
  37. h0004 0018
  38. x11DEFINE-INTEGRABLE
  39. lx06LAMBDAllx05CLASSnllx0AVECTOR-REFlx05CLASSli0002nn
  40. x06%SC-CV
  41. x12PCS*PRIMOP-HANDLER
  42. tO u ;
  43. z
  44. h0004 0018
  45. x11DEFINE-INTEGRABLE
  46. lx06LAMBDAllx05CLASSnllx0AVECTOR-REFlx05CLASSli0003nn
  47. x0A%SC-ALLCVS
  48. x12PCS*PRIMOP-HANDLER
  49. tO u ;
  50. z
  51. h0004 0018
  52. x11DEFINE-INTEGRABLE
  53. lx06LAMBDAllx05CLASSnllx0AVECTOR-REFlx05CLASSli0004nn
  54. x0A%SC-ALLIVS
  55. x12PCS*PRIMOP-HANDLER
  56. tO u ;
  57. z
  58. h0004 0018
  59. x11DEFINE-INTEGRABLE
  60. lx06LAMBDAllx05CLASSnllx0AVECTOR-REFlx05CLASSli0005nn
  61. x0A%SC-MIXINS
  62. x12PCS*PRIMOP-HANDLER
  63. tO u ;
  64. z
  65. h0004 0018
  66. x11DEFINE-INTEGRABLE
  67. lx06LAMBDAllx05CLASSnllx0AVECTOR-REFlx05CLASSli0006nn
  68. x11%SC-INST-TEMPLATE
  69. x12PCS*PRIMOP-HANDLER
  70. tO u ;
  71. z
  72. h0004 0018
  73. x11DEFINE-INTEGRABLE
  74. lx06LAMBDAllx05CLASSnllx0AVECTOR-REFlx05CLASSli0007nn
  75. x0E%SC-METHOD-ENV
  76. x12PCS*PRIMOP-HANDLER
  77. tO u ;
  78. z
  79. h0004 0018
  80. x11DEFINE-INTEGRABLE
  81. lx06LAMBDAllx05CLASSnllx0AVECTOR-REFlx05CLASSli0008nn
  82. x0D%SC-CLASS-ENV
  83. x12PCS*PRIMOP-HANDLER
  84. tO u ;
  85. z
  86. h0004 0018
  87. x11DEFINE-INTEGRABLE
  88. lx06LAMBDAllx05CLASSnllx0AVECTOR-REFlx05CLASSli0009nn
  89. x14%SC-METHOD-STRUCTURE
  90. x12PCS*PRIMOP-HANDLER
  91. tO u ;
  92. z
  93. h0004 0018
  94. x11DEFINE-INTEGRABLE
  95. lx06LAMBDAllx05CLASSnllx0AVECTOR-REFlx05CLASSli000Ann
  96. x0E%SC-SUBCLASSES
  97. x12PCS*PRIMOP-HANDLER
  98. tO u ;
  99. z
  100. h0004 0018
  101. x11DEFINE-INTEGRABLE
  102. lx06LAMBDAllx05CLASSnllx0AVECTOR-REFlx05CLASSli000Bnn
  103. x12%SC-CLASS-COMPILED
  104. x12PCS*PRIMOP-HANDLER
  105. tO u ;
  106. z
  107. h0004 0018
  108. x11DEFINE-INTEGRABLE
  109. lx06LAMBDAllx05CLASSnllx0AVECTOR-REFlx05CLASSli000Cnn
  110. x13%SC-CLASS-INHERITED
  111. x12PCS*PRIMOP-HANDLER
  112. tO u ;
  113. z
  114. h0004 0018
  115. x11DEFINE-INTEGRABLE
  116. lx06LAMBDAllx05CLASSnllx0AVECTOR-REFlx05CLASSli000Dnn
  117. x11%SC-METHOD-VALUES
  118. x12PCS*PRIMOP-HANDLER
  119. tO u ;
  120. z
  121. h0004 0018
  122. x11DEFINE-INTEGRABLE
  123. lx06LAMBDAllx05CLASSnllx0AVECTOR-REFlx05CLASSli000Enn
  124. x06%SC-IV
  125. x12PCS*PRIMOP-HANDLER
  126. tO u ;
  127. z
  128. h0004 0018
  129. x11DEFINE-INTEGRABLE
  130. lx06LAMBDAllx05CLASSlx03VALnllx0BVECTOR-SET!lx05CLASSli0001lx03VALnn
  131. x0C%SC-SET-NAME
  132. x12PCS*PRIMOP-HANDLER
  133. tO u ;
  134. z
  135. h0004 0018
  136. x11DEFINE-INTEGRABLE
  137. lx06LAMBDAllx05CLASSlx03VALnllx0BVECTOR-SET!lx05CLASSli0002lx03VALnn
  138. x0A%SC-SET-CV
  139. x12PCS*PRIMOP-HANDLER
  140. tO u ;
  141. z
  142. h0004 0018
  143. x11DEFINE-INTEGRABLE
  144. lx06LAMBDAllx05CLASSlx03VALnllx0BVECTOR-SET!lx05CLASSli0003lx03VALnn
  145. x0E%SC-SET-ALLCVS
  146. x12PCS*PRIMOP-HANDLER
  147. tO u ;
  148. z
  149. h0004 0018
  150. x11DEFINE-INTEGRABLE
  151. lx06LAMBDAllx05CLASSlx03VALnllx0BVECTOR-SET!lx05CLASSli0004lx03VALnn
  152. x0E%SC-SET-ALLIVS
  153. x12PCS*PRIMOP-HANDLER
  154. tO u ;
  155. z
  156. h0004 0018
  157. x11DEFINE-INTEGRABLE
  158. lx06LAMBDAllx05CLASSlx03VALnllx0BVECTOR-SET!lx05CLASSli0005lx03VALnn
  159. x0E%SC-SET-MIXINS
  160. x12PCS*PRIMOP-HANDLER
  161. tO u ;
  162. z
  163. h0004 0018
  164. x11DEFINE-INTEGRABLE
  165. lx06LAMBDAllx05CLASSlx03VALnllx0BVECTOR-SET!lx05CLASSli0006lx03VALnn
  166. x15%SC-SET-INST-TEMPLATE
  167. x12PCS*PRIMOP-HANDLER
  168. tO u ;
  169. z
  170. h0004 0018
  171. x11DEFINE-INTEGRABLE
  172. lx06LAMBDAllx05CLASSlx03VALnllx0BVECTOR-SET!lx05CLASSli0007lx03VALnn
  173. x12%SC-SET-METHOD-ENV
  174. x12PCS*PRIMOP-HANDLER
  175. tO u ;
  176. z
  177. h0004 0018
  178. x11DEFINE-INTEGRABLE
  179. lx06LAMBDAllx05CLASSlx03VALnllx0BVECTOR-SET!lx05CLASSli0008lx03VALnn
  180. x11%SC-SET-CLASS-ENV
  181. x12PCS*PRIMOP-HANDLER
  182. tO u ;
  183. z
  184. h0004 0018
  185. x11DEFINE-INTEGRABLE
  186. lx06LAMBDAllx05CLASSlx03VALnllx0BVECTOR-SET!lx05CLASSli0009lx03VALnn
  187. x18%SC-SET-METHOD-STRUCTURE
  188. x12PCS*PRIMOP-HANDLER
  189. tO u ;
  190. z
  191. h0004 0018
  192. x11DEFINE-INTEGRABLE
  193. lx06LAMBDAllx05CLASSlx03VALnllx0BVECTOR-SET!lx05CLASSli000Alx03VALnn
  194. x12%SC-SET-SUBCLASSES
  195. x12PCS*PRIMOP-HANDLER
  196. tO u ;
  197. z
  198. h0004 0018
  199. x11DEFINE-INTEGRABLE
  200. lx06LAMBDAllx05CLASSlx03VALnllx0BVECTOR-SET!lx05CLASSli000Blx03VALnn
  201. x16%SC-SET-CLASS-COMPILED
  202. x12PCS*PRIMOP-HANDLER
  203. tO u ;
  204. z
  205. h0004 0018
  206. x11DEFINE-INTEGRABLE
  207. lx06LAMBDAllx05CLASSlx03VALnllx0BVECTOR-SET!lx05CLASSli000Clx03VALnn
  208. x17%SC-SET-CLASS-INHERITED
  209. x12PCS*PRIMOP-HANDLER
  210. tO u ;
  211. z
  212. h0004 0018
  213. x11DEFINE-INTEGRABLE
  214. lx06LAMBDAllx05CLASSlx03VALnllx0BVECTOR-SET!lx05CLASSli000Dlx03VALnn
  215. x15%SC-SET-METHOD-VALUES
  216. x12PCS*PRIMOP-HANDLER
  217. tO u ;
  218. z
  219. h0004 0018
  220. x11DEFINE-INTEGRABLE
  221. lx06LAMBDAllx05CLASSlx03VALnllx0BVECTOR-SET!lx05CLASSli000Elx03VALnn
  222. x0A%SC-SET-IV
  223. x12PCS*PRIMOP-HANDLER
  224. tO u ;
  225. z
  226. h0004 002E
  227. x0F%SC-NAME->CLASS
  228. x06%CLASS
  229. x0DERROR-HANDLER
  230. x02#T
  231. t<; t " ; 5
  232. z
  233. h0004 0018
  234. x11DEFINE-INTEGRABLE
  235. lx06LAMBDAllx09METH-NAMElx05CLASSnllx03CDRllx04ASSQlx09METH-NAMEllx11%SC-METHOD-VALUESlx05CLASSnnnn
  236. x12%SC-GET-METH-VALUE
  237. x12PCS*PRIMOP-HANDLER
  238. tO u ;
  239. z
  240. h0004 0018
  241. x11DEFINE-INTEGRABLE
  242. lx06LAMBDAllx03VARlx05CLASSnllx04CADRllx04ASSQlx03VARllx06%SC-CVlx05CLASSnnnn
  243. x10%SC-GET-CV-VALUE
  244. x12PCS*PRIMOP-HANDLER
  245. tO u ;
  246. z
  247. h0004 0018
  248. x11DEFINE-INTEGRABLE
  249. lx06LAMBDAllx03STRlx03SYMnllx0ESTRING->SYMBOLllx0DSTRING-APPENDlx03STRllx0ESYMBOL->STRINGlx03SYMnnnn
  250. x0A%SC-CONCAT
  251. x12PCS*PRIMOP-HANDLER
  252. tO u ;
  253. z
  254. h0002 004F
  255. x07%BEFORE
  256. x0F%SC-NAME->CLASS
  257. t<;d $0  4 ⁿgⁿⁿg;;
  258. z
  259. h000D 00DA
  260. x0DDEFINE-METHOD
  261. x13CREATE-SCHEME-MACRO
  262. x05QUOTE
  263. llx04SELFllx05FLUIDlx04SELFnnn
  264. x03LET
  265. x06LAMBDA
  266. x0A%SC-EXPAND
  267. lx03ENVn
  268. x06ACCESS
  269. lx03VALn
  270. x04SET!
  271. lx03ENVlx03VALn
  272. x14%SC-CLASS-ADD-METHOD
  273. t< 5 GC C  IMOOO  O   O $O$$ $O$(O(($((O((,O(,(O((O((,O,(4,0O,,00O,0,0    O,,00
  274. O,0,O,,0 O,0,0O,0,O,,O(,$O$$( O  $O O O;
  275. z
  276. h0003 0080
  277. x14%SC-CLASS-ADD-METHOD
  278. x0F%SC-NAME->CLASS
  279. x14%COMPILED-ADD-METHOD
  280. t<; 4(
  281.    ($l$  $"$ ,$ $, !(,O((,4
  282. 0 04O((00
  283. ,,0( 445
  284. z
  285. h0003 008E
  286. x12%INFORM-SUBCLASSES
  287. x0F%SC-NAME->CLASS
  288. x14%COMPILED-ADD-METHOD
  289. t<;  4<
  290. 8 8< 80 ; " 9 @  4 8A8 ┴ ;
  291. z
  292. h0004 01A6
  293. x14%COMPILED-ADD-METHOD
  294. x0F%SC-NAME->CLASS
  295. x12%INFORM-SUBCLASSES
  296. x07%BEFORE
  297. t<; 4(       ($l$  $"$  0á $  
  298.  0  ; O  ⁿ xⁿⁿ      O        "    4 
  299.  " 5;A0@" ₧A E 0 ê " 4A ▀ ; " ]D d " @  ;D 4 "  O O  ; ; O O  ;
  300. z
  301. h000B 0093
  302. x0DDELETE-METHOD
  303. x13CREATE-SCHEME-MACRO
  304. x05QUOTE
  305. lx03ENVn
  306. x06ACCESS
  307. lx03VALn
  308. x04SET!
  309. lx03ENVlx03VALn
  310. x06LAMBDA
  311. lnn
  312. x14%SC-CLASS-DEL-METHOD
  313. t< 5 GC C OOO OOOO O $O  $$O $ $O  $$O $ O  $O $ $O $ $    O  $O OOO
  314. O;
  315. z
  316. h0005 002F
  317. x0F%DELETED-METHOD
  318. lx04NAMEn
  319. x04NAME
  320. x0DERROR-HANDLER
  321. x02#T
  322. t<;▌< ; 5
  323. z
  324. h0006 0086
  325. x14%SC-CLASS-DEL-METHOD
  326. x0F%SC-NAME->CLASS
  327. x05DELQ!
  328. x14%COMPILED-DEL-METHOD
  329. x0DERROR-HANDLER
  330. x02#T
  331. t<; 4(
  332.    ($l$  $"$>   8
  333.  8 4 (4
  334. 0(04 5 5
  335. z
  336. h0003 008E
  337. x16%INFORM-DEL-SUBCLASSES
  338. x0F%SC-NAME->CLASS
  339. x14%COMPILED-DEL-METHOD
  340. t<;  4<
  341. 8 8< 80 ; " 9 @  4 8A8 ┴ ;
  342. z
  343. h0009 0265
  344. x14%COMPILED-DEL-METHOD
  345. x0F%SC-NAME->CLASS
  346. x0DERROR-HANDLER
  347. x02#T
  348. x07%BEFORE
  349. x12%INFORM-SUBCLASSES
  350. x05DELQ!
  351. x0F%DELETED-METHOD
  352. x16%INFORM-DEL-SUBCLASSES
  353. t<; 4(       ($l$  $"$  0$ $    4 ;A0╘" qA E  " ' D  4 ê "  0} " ;A ░ 5A#ìG4
  354.  lA  "    4  
  355. " / $  $5 ;      l       4      "6  $ 4 
  356.  4 
  357. "0    5;D d "
  358. A  ; ;
  359. z
  360. h0005 004F
  361. x0DCOMPILE-CLASS
  362. x13CREATE-SCHEME-MACRO
  363. x0F%SC-NAME->CLASS
  364. x14%INHERIT-METHOD-VARS
  365. x0E%MAKE-TEMPLATE
  366. t< 5 CC4   ";  4 5 
  367. z
  368. h0004 0038
  369. x11%SC-COMPILE-CLASS
  370. x14%INHERIT-METHOD-VARS
  371. x0E%MAKE-TEMPLATE
  372. x04EVAL
  373. t<;4   4 5
  374. z
  375. h0003 0028
  376. x0DMAKE-INSTANCE
  377. x13CREATE-SCHEME-MACRO
  378. x11%SC-INST-TEMPLATE
  379. t< 5 C ⁿ xⁿⁿE O ;
  380. z
  381. h0004 006A
  382. x19%UNCOMPILED-MAKE-INSTANCE
  383. lx05CLASSn
  384. x05CLASS
  385. x11%SC-COMPILE-CLASS
  386. t<;▌< ;  4<■   5  q j A j@ q9
  387. z
  388. h000D 0142
  389. x0E%MAKE-TEMPLATE
  390. x05QUOTE
  391. x0E%SC-SET-ALLCVS
  392. x0E%SC-SET-ALLIVS
  393. x18%SC-SET-METHOD-STRUCTURE
  394. x13%MAKE-INST-TEMPLATE
  395. x15%SC-SET-INST-TEMPLATE
  396. lx02#Tn
  397. x16%SC-SET-CLASS-COMPILED
  398. lx02#Tn
  399. x17%SC-SET-CLASS-INHERITED
  400. x08%SIGN-ON
  401. x05BEGIN
  402. t<; O O  O O  O  OOOOO     OOOOO   $ $(     (,,4OOO O  O  $    O  $$
  403. O $ $O$$(O$($(O((O$$(( O$($(O((,O(,(O((O$$(O  $O OOO O  O ;
  404. z
  405. h0012 0106
  406. x13%MAKE-INST-TEMPLATE
  407. lx04NAMEn
  408. x04NAME
  409. x06MAPCAR
  410. llx0B%*METHODS*%llx05QUOTElx01-nnn
  411. llx0D%*CLASSVARS*%llx05QUOTElx01-nnn
  412. llx0C%*INSTVARS*%llx05QUOTElx01-nnn
  413. x09%SC-CLASS
  414. llx0FTHE-ENVIRONMENTnn
  415. x12%SC-SET-METHOD-ENV
  416. llx0FTHE-ENVIRONMENTnn
  417. x11%SC-SET-CLASS-ENV
  418. llx04EVALllx0AQUASIQUOTEllx03LETllx07UNQUOTEllx03LETlx04LOOPlllx04RESTlx0D%SC-INIT-VALSnnllx02IFllx05NULL?lx04RESTnllx05QUOTElnnllx0AQUASIQUOTEllllx07UNQUOTEllx03CARlx04RESTnnllx05QUOTEllx07UNQUOTEllx04CADRlx04RESTnnnnllx10UNQUOTE-SPLICINGllx04LOOPllx04CDDRlx04RESTnnnnnnnnllx0FTHE-ENVIRONMENTnnnllx0FTHE-ENVIRONMENTnnn
  419. x03LET
  420. x0D%SC-INIT-VALS
  421. x06LAMBDA
  422. x05QUOTE
  423. x12%SC-GET-METH-VALUE
  424. t<; ▌<«   4 q q  $q $$O$$(O$($O$$(,O((,,    O(,(,0
  425. O,,00 O,0,4 O0 44
  426. O040O004O0404O040O00O,,0O,,0
  427. O,0,O,,O((,O((,
  428. O(,(O((O$$((
  429. O($;@@ O O  GOO O  O O ;
  430. z
  431. h0006 00C0
  432. x14%INHERIT-METHOD-VARS
  433. lx05CLASSn
  434. x05CLASS
  435. x14%INHERIT-FROM-MIXINS
  436. x02#T
  437. x08%SIGN-ON
  438. t<;▌  $ J            < $  $5 ;              $ $  4 ;
  439. z
  440. h0006 0089
  441. x08%SIGN-ON
  442. lx04NAMEn
  443. x04NAME
  444. x06MAPCAR
  445. x0F%SC-NAME->CLASS
  446. x14%INHERIT-METHOD-VARS
  447. t<;▌  <  5 4
  448.    ê" 4 g $O  
  449.  ;;
  450. z
  451. h0004 0228
  452. x14%INHERIT-FROM-MIXINS
  453. x0F%SC-NAME->CLASS
  454. x14%INHERIT-METHOD-VARS
  455. x07%BEFORE
  456. t<; 0 ;"~ @44$,$ ,0(0( 0008     0 84@40 ,A,!|   $  $5"O D , , ((4"G O  O   ;;G OO;  0t  " ; 8A8 ╡ " B l "   @ O  A ▌; A0|  ; "fB l"3  (@$  $(0┤    @ 0 A  ö;@ G OxO;
  457. z
  458. h0031 06A6
  459. x0CDEFINE-CLASS
  460. x13CREATE-SCHEME-MACRO
  461. lx01En
  462. x01E
  463. lx09CLASSVARSlx08INSTVARSlx06MIXINSlx07OPTIONSlx07ALLVARSlx0DMETHOD-VALUESlx05INITSn
  464. x09CLASSVARS
  465. x08INSTVARS
  466. x06MIXINS
  467. x07OPTIONS
  468. x07ALLVARS
  469. x0DMETHOD-VALUES
  470. x05INITS
  471. lx0BEMPTY-SLOT?n
  472. x03NOT
  473. x0BEMPTY-SLOT?
  474. x06MAPCAR
  475. x05QUOTE
  476. x04LIST
  477. x0E%SC-MAKE-CLASS
  478. x06DEFINE
  479. x07CHK-IVS
  480. x0C#!UNASSIGNED
  481. llx05QUOTElx0D%SC-INIT-VALSnn
  482. x04MEMQ
  483. lx06LAMBDAllx01Anllx04CADRlx01Ann
  484. x08APPLY-IF
  485. x07CHK-CVS
  486. x12GETTABLE-VARIABLES
  487. x12SETTABLE-VARIABLES
  488. x13INITTABLE-VARIABLES
  489. x0DERROR-HANDLER
  490. x0CGENERATE-SET
  491. s0004SET-
  492. lx07%SC-VALn
  493. x04SET!
  494. llx04SELFllx05FLUIDlx04SELFnnn
  495. x03LET
  496. lx07%SC-VALn
  497. x06LAMBDA
  498. x0A%SC-EXPAND
  499. x04CONS
  500. x0CGENERATE-GET
  501. s0004GET-
  502. llx04SELFllx05FLUIDlx04SELFnnn
  503. llx04SELFllx05FLUIDlx04SELFnnn
  504. llx04SELFllx05FLUIDlx04SELFnnn
  505. lx07%SC-VALn
  506. x07%SC-VAL
  507. x06ACTIVE
  508. t< 5 ▌C▌    
  509.  ▌ (
  510. ((E(0├ (
  511. (<: 4 0| 
  512. (O((,O(,(,",(01 ,(O,,0O,0,0"0(,0^ 0,(O004O0404O448O4848
  513. "8
  514. 8<
  515. O88<O88O448O004O,,0O((,,O(,(O((,O(,(,O,(; < 5 Ç"  x  .C0?" @ C 0%1@ g "A@@ O O  O O  COOO O  O O ;; < 5 Ç" x ;;0 ; # ÜA Bd" D0dq  cBd" D0gq  8Bd" D  ! @4  !_ ;Ç"     O ;; < 5  0ZO O   !O "O  O #O  $O  O %O  &O '4O O  (O ;═╞(╞(,╓,(╦; 0 ;"A@ⁿxⁿ ⁿ µ ; )< 5 *0ê O O   O +O  $O  O O &O '4O O  (O ; *0, OO0: O,O$OOO&O'4OO(O 0╧■OOO -O  $O O .O  &O '4OO(O
  516. OO
  517. x;    <> 4     <  4 q    ;Ç";@;Ç";@;#hB d "D OB d "D ;B d "D 'B d "D  B4A æ!;  /0 ; C0█#pI4" 
  518. ION4"  N x  ⁿ xⁿⁿ "O   C 1╠²CI4" 
  519. I O  N 4 "     N  $x $  ! Ç $ @ 0d  ê; ;
  520. z
  521. h000A 00D8
  522. x04SEND
  523. x13CREATE-SCHEME-MACRO
  524. x04SELF
  525. llx05FLUIDlx04SELFnn
  526. x06ACCESS
  527. x09FLUID-LET
  528. x06LAMBDA
  529. s0006%%**%%
  530. x0ENUMBER->STRING
  531. lx03INTn
  532. t< 5 MI  C0M OOO O  O OOOOOOOO; " T       4   ╞(╞(, ╓,( ╦  AQ0¡  O ; ;
  533. z
  534. h000F 0106
  535. x0FSEND-IF-HANDLES
  536. x13CREATE-SCHEME-MACRO
  537. x04SELF
  538. x05QUOTE
  539. llx14%SC-METHOD-STRUCTUREllx06ACCESSlx09%SC-CLASSllx05FLUIDlx04SELFnnnn
  540. x04ASSQ
  541. llx05FLUIDlx04SELFnn
  542. x06ACCESS
  543. lnn
  544. x02IF
  545. x09FLUID-LET
  546. x06LAMBDA
  547. s0006%%**%%
  548. x0ENUMBER->STRING
  549. lx03INTn
  550. t< 5 CI  M0{ OOOO O  O  O  $O  $$O $ O  $O  $O      O OO
  551. OOO OO; " T  
  552. 4   ╞(╞(, ╓,( ╦  AQ0¡  O ; ;
  553. z
  554. h0011 00DD
  555. s001A Invalid class definition 
  556. s0010 Invalid option 
  557. s0013 Class not defined 
  558. s0019 Method has been deleted 
  559. s0017 Method is not present 
  560. s0018 Variable is not present
  561. s0013 Not a Scoops Class
  562. s0014 Class not compiled 
  563. lx0BERROR-TABLEn
  564. x0BERROR-TABLE
  565. x0DERROR-HANDLER
  566. lx03MSGlx06NUMBERlx04FLAGn
  567. x03MSG
  568. x06NUMBER
  569. x04FLAG
  570. x0FERROR-PROCEDURE
  571. x14BREAKPOINT-PROCEDURE
  572. t¿                ▌    
  573. <    =
  574. 
  575. ;▌  
  576.  "%     
  577.   4;     
  578.   ┘ 4;
  579. z
  580. h000E 011F
  581. x15%SC-CLASS-DESCRIPTION
  582. x07WRITELN
  583. s0001 
  584. s0019    CLASS DESCRIPTION    
  585. s001A    ==================    
  586. s0013 NAME            : 
  587. s0013 CLASS VARS      : 
  588. x03CAR
  589. x06MAPCAR
  590. s0013 INSTANCE VARS   : 
  591. s0013 METHODS         : 
  592. s0013 MIXINS          : 
  593. s0013 CLASS COMPILED  : 
  594. s0013 CLASS INHERITED : 
  595. t<;4444   4   4   4       4   4 
  596.       4   4    4    4   
  597. 5 
  598. z
  599. h000C 00FD
  600. x0D%SC-INST-DESC
  601. x09%SC-CLASS
  602. x07WRITELN
  603. s0001 
  604. s001C  INSTANCE DESCRIPTION      
  605. s001C  ====================      
  606. s0013 Instance of Class 
  607. s0013 Class Variables : 
  608. x14ENVIRONMENT-BINDINGS
  609. s0014Instance Variables :
  610. s0003   
  611. s0003 : 
  612. t<;█Z4444  4 44   404 4    4  40 ; " /BBlA
  613.  4 A  ╦ ;
  614. z
  615. h0004 0031
  616. x08DESCRIBE
  617. x11%SCOOPS-CHK-CLASS
  618. x15%SC-CLASS-DESCRIPTION
  619. x0D%SC-INST-DESC
  620. t<;æ"4  55
  621. z
  622. h0003 002E
  623. x1A%SCOOPS-CHK-CLASS-COMPILED
  624. x0DERROR-HANDLER
  625. x02#T
  626. t<;   $  5;
  627. z
  628. h000B 00AB
  629. x0CRENAME-CLASS
  630. x13CREATE-SCHEME-MACRO
  631. x05QUOTE
  632. x0F%SC-NAME->CLASS
  633. x0C%SC-SET-NAME
  634. lx18USER-INITIAL-ENVIRONMENTn
  635. x06ACCESS
  636. x04SET!
  637. llx05QUOTElx06%CLASSnn
  638. x07PUTPROP
  639. x05BEGIN
  640. t< 5 GCC OOOOO OOOOO OOOOO  O $O  $O      O O  $O $ O  O OOO
  641. O;
  642. z
  643. h000A 00A5
  644. x05GETCV
  645. x13CREATE-SCHEME-MACRO
  646. x05QUOTE
  647. x0F%SC-NAME->CLASS
  648. x1A%SCOOPS-CHK-CLASS-COMPILED
  649. x03AND
  650. x0D%SC-CLASS-ENV
  651. s0004GET-
  652. x04SEND
  653. x05BEGIN
  654. t< 5 CI OOOOOOOOOOOOOO$ ═$(,╞,0<$╞<@╓(0,$@< (╦ O OOOO    O;
  655. z
  656. h000A 00AC
  657. x05SETCV
  658. x13CREATE-SCHEME-MACRO
  659. x05QUOTE
  660. x0F%SC-NAME->CLASS
  661. x1A%SCOOPS-CHK-CLASS-COMPILED
  662. x03AND
  663. x0D%SC-CLASS-ENV
  664. s0004SET-
  665. x04SEND
  666. x05BEGIN
  667. t< 5 CI NOOOOOOOOOOOOOO( ═(,0╞04@(╞@D╓,40(D@,╦O O OOOO    O;
  668. z
  669. h0002 0024
  670. x0FCLASS-COMPILED?
  671. x11%SCOOPS-CHK-CLASS
  672. t<;4  ;
  673. z
  674. h0002 0021
  675. x0FCLASS-OF-OBJECT
  676. x09%SC-CLASS
  677. t<;█Z ;
  678. z
  679. h0002 0015
  680. x0BNAME->CLASS
  681. x0F%SC-NAME->CLASS
  682. t<;5
  683. z
  684. h0006 0047
  685. x0E%SC-CLASS-INFO
  686. lx02FNn
  687. x02FN
  688. x11%SCOOPS-CHK-CLASS
  689. x03CAR
  690. x06MAPCAR
  691. t<;▌<;44  5 
  692. z
  693. h0002 001C
  694. x07METHODS
  695. x0E%SC-CLASS-INFO
  696. t<
  697. 4;
  698.  ;
  699. z
  700. h0002 001C
  701. x0BALL-METHODS
  702. x0E%SC-CLASS-INFO
  703. t<
  704. 4;       ;
  705. z
  706. h0002 001C
  707. x09CLASSVARS
  708. x0E%SC-CLASS-INFO
  709. t<
  710. 4;   ;
  711. z
  712. h0002 001C
  713. x0DALL-CLASSVARS
  714. x0E%SC-CLASS-INFO
  715. t<
  716. 4;   ;
  717. z
  718. h0002 001C
  719. x08INSTVARS
  720. x0E%SC-CLASS-INFO
  721. t<
  722. 4;   ;
  723. z
  724. h0002 001C
  725. x0CALL-INSTVARS
  726. x0E%SC-CLASS-INFO
  727. t<
  728. 4;   ;
  729. z
  730. h0002 0024
  731. x06MIXINS
  732. x11%SCOOPS-CHK-CLASS
  733. t<;4 ;
  734. z
  735. h0016 040E
  736. x0A%SC-EXPAND
  737. x05QUOTE
  738. x04SET!
  739. x06DEFINE
  740. x06LAMBDA
  741. lx05BEGINlx02IFn
  742. x06LETREC
  743. x10PCS-CHK-LENGTH>=
  744. x08REVERSE!
  745. lx02#Tlnlx0C#!UNASSIGNEDn
  746. x09PCS*MACRO
  747. x12PCS*PRIMOP-HANDLER
  748. lx04SELFn
  749. x06ACCESS
  750. x0FPCS-CHK-LENGTH=
  751. lx02#Tlnlx0C#!UNASSIGNEDn
  752. lx04SELFn
  753. x0BPCS-CHK-BVL
  754. x02#T
  755. x0DPCS-CHK-PAIRS
  756. x03CAR
  757. x06MAPCAR
  758. t<;0 ; Ç " !Σ@0 " !. Ç " !┤@  e"; e"!Γ e"!ì e"!* h"!┐ e"!π 4 "& A@0- O  ╘5 É " 2 g ê " '     g ê " 
  759. t ê "  t ê "  O 
  760. O ;; 4 C  I0¢■  É"5 gê"' gê"
  761.  tê"   tê"O 
  762. OOOO; xO; ï " @ O A ∞ " O;; 4 @  CI0┘² xO ;É"
  763. t
  764.  
  765. ; ï "  A AO  4  Çê"f ê" !d² !IJ 4 C   4E0≥■ 0╟²OO;"5 BH0σⁿAx O   ┼5 4 @  A 0E² O ; 4 C   4  4 0■ 0. E 0╙ⁿOO;
  766. z
  767. h002A 018E
  768. x0ALAMBDA-BVL
  769. x13CREATE-SCHEME-MACRO
  770. x0BLAMBDA-BODY
  771. x10LAMBDA-BODY-LIST
  772. x0CLAMBDA-NARGS
  773. x0CLAMBDA-LABEL
  774. x0CLAMBDA-DEBUG
  775. x0ELAMBDA-CLOSED?
  776. x0FSET-LAMBDA-BODY
  777. x10SET-LAMBDA-NARGS
  778. x10SET-LAMBDA-LABEL
  779. x10SET-LAMBDA-DEBUG
  780. x12SET-LAMBDA-CLOSED?
  781. x11PCS-EXTEND-LAMBDA
  782. x01X
  783. llx08SET-CDR!llx05CDDDRlx01Xnllx04LISTllx05QUOTElnnllx05QUOTElnnllx05QUOTElnnnnlx01Xn
  784. x03LET
  785. x13%EXPAND-SYNTAX-FORM
  786. lx01Xlx03VALn
  787. lx08SET-CAR!llx05CDDDRllx05CDDDRlx01Xnnlx03VALn
  788. lx01Xlx03VALn
  789. lx08SET-CAR!llx04CDDRllx05CDDDRlx01Xnnlx03VALn
  790. lx01Xlx03VALn
  791. lx08SET-CAR!llx03CDRllx05CDDDRlx01Xnnlx03VALn
  792. lx01Xlx03VALn
  793. lx08SET-CAR!llx05CDDDRlx01Xnlx03VALn
  794. lx01Xlx03VALn
  795. lx08SET-CAR!llx04CDDRlx01Xnlx03VALn
  796. lx01Xn
  797. lx03CARllx05CDDDRllx05CDDDRlx01Xnnn
  798. lx01Xn
  799. lx03CARllx04CDDRllx05CDDDRlx01Xnnn
  800. lx01Xn
  801. lx03CARllx03CDRllx05CDDDRlx01Xnnn
  802. lx01Xn
  803. lx03CARllx05CDDDRlx01Xnn
  804. lx01Xn
  805. lx04CDDRlx01Xn
  806. lx01Xn
  807. lx03CARllx04CDDRlx01Xnn
  808. lx01Xn
  809. lx03CARllx03CDRlx01Xnn
  810. t<w 4 <Z 4 <= 4 <  4 < 4 <µ 4 <╔ 4 <¼ 4     <Å 4 
  811. <r 4  <U 4  <8 4 
  812. < 5 CO O O O  O ; 5 5 5 5  5 5  !5" #5$ %5& '5( )5
  813. z
  814. h000E 0074
  815. x0CLETREC-PAIRS
  816. x13CREATE-SCHEME-MACRO
  817. x0BLETREC-BODY
  818. x10LETREC-BODY-LIST
  819. x0FSET-LETREC-BODY
  820. x13%EXPAND-SYNTAX-FORM
  821. lx01Xlx03VALn
  822. lx08SET-CAR!llx04CDDRlx01Xnlx03VALn
  823. lx01Xn
  824. lx04CDDRlx01Xn
  825. lx01Xn
  826. lx03CARllx04CDDRlx01Xnn
  827. lx01Xn
  828. lx03CARllx03CDRlx01Xnn
  829. t<] 4 <@ 4 <# 4 < 5  5     5
  830.  5 
  831. 5
  832. z
  833. h000E 0074
  834. x07SET!-ID
  835. x13CREATE-SCHEME-MACRO
  836. x08SET!-EXP
  837. x0BSET-SET!-ID
  838. x0CSET-SET!-EXP
  839. x13%EXPAND-SYNTAX-FORM
  840. lx01Xlx03VALn
  841. lx08SET-CAR!llx04CDDRlx01Xnlx03VALn
  842. lx01Xlx03VALn
  843. lx08SET-CAR!llx03CDRlx01Xnlx03VALn
  844. lx01Xn
  845. lx03CARllx04CDDRlx01Xnn
  846. lx01Xn
  847. lx03CARllx03CDRlx01Xnn
  848. t<] 4 <@ 4 <# 4 < 5  5     5
  849.  5 
  850. 5
  851. z
  852.